5 REM: TOM DOOLEY-PIANO/FLUTE/HARPSICORD
10 POKE53281,0:POKE53280,0:PRINT"[147][129]"
15 PRINTTAB(10)"[212] [207] [205]    [196] [207] [207] [204] [197] [217]"
17 PRINTTAB(12)"[154]BY [205]ARJORIE [211]COTT"
20 S=54272:       REM NAME FIRST REG.
30 FORI=STOS+24:  REM CLEAR REGISTERS
40 POKEI,0:NEXT:  REM SET ALL TO 0
50 POKES+24,15:   REM SET VOLUME = 15
70 POKES+2,225:   REM LOW PULSE  V1
80 POKES+3,0:     REM HIGH PULSE V1
90 POKES+5,9:     REM ATT/DEC    V1
100 POKES+6,0:    REM SUS/REL    V1
130 POKES+9,0:    REM LOW PULSE  V2
140 POKES+10,0:   REM HIGH PULSE V2
150 POKES+12,96:  REM ATT+DEC    V2
160 POKES+13,0:   REM SUS+REL    V2
161 POKES+16,0:   REM LO PULSE   V3
162 POKES+17,9:   REM HI PULSE   V3
163 POKES+19,9:   REM ATT+DEC    V3
164 POKES+20,0:   REM SUS+REL    V3
170 READ HI,LO,DU:REM READ 3 DATAS
180 IFHI=0THEN400:REM ZERO-END TUNE
190 POKES+1,HI:POKES,LO:REM NOTES V1
192 OC=1
200 POKES+8,HI/OC:POKES+7,LO:REM NOTES V2
201 POKES+15,HI*OC:POKES+14,LO:REM NOTESV3
210 POKES+4,65:   REM WAVE ON   V1
220 POKES+11,17:  REM WAVE ON   V2
221 POKES+18,33:  REM WAVE ON   V3
230 FOR Z=1TODU/4:REM SOUND LENGTH
240 NEXT:         REM SOUND LOOP
250 POKES+4,64:   REM WAVE OFF   V1
260 POKES+11,16:  REM WAVE OFF   V2
261 POKES+18,32:   REM WAVE OFF   V3
280 FOR T=1TO25:  REM TIMING
281 NEXT:         REM LOOP
290 GOTO 170:     REM READ AGAIN
300 DATA 18,104,250,18,104,500,18,104,250,20,169,500,24,146,500
310 DATA 30,245,1000,30,245,1000
320 DATA 18,104,250,18,104,500,18,104,250,20,169,500,24,146,500
340 DATA 27,148,2000
350 DATA 18,104,250,18,104,500,18,104,250,20,169,500,24,146,500
360 DATA 27,148,1000,27,148,1000
370 DATA 27,148,250,27,148,500,30,245,250,24,146,500,20,169,500,24,146,1500
380 DATA 0,0,0
400 PRINTTAB(9)"1 [159]- [208]LAY IT AGAIN, [205]ARGE"
410 PRINTTAB(9)"2 [159]- [210]ETURN TO [204][207][193][196][211][212][193][210]"
420 GETA$:IFA$=""THEN420
430 IFA$="1"THENRUN
440 IFA$<>"2"THEN420
450 GOTO40000
10000 OPEN15,8,15,"S0:TOM DOOLEY":CLOSE15:SAVE"TOM DOOLEY",8:END
40000 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40020
40010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40030
40020 NEXT:PRINT"[147]":POKE2048,0:POKE44,8:POKE53272,23:POKE186,8:END
40030 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)A$CHR$(34)","I
40040 PRINT"RUN":POKE44,8:POKE2048,0:POKE631,13:POKE632,13:POKE198,2:END